From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 21 May 2001 12:23:54 +0000 (+0000)
Subject: (Fmake_symbol): Adapt to changes of struct Lisp_Symbol.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8793^2~9
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d10bd024c7e86257b500108fefa11b75380f5f00;p=emacs.git

(Fmake_symbol): Adapt to changes of struct Lisp_Symbol.
---

diff --git a/src/alloc.c b/src/alloc.c
index a0c06a5c35b..d171e5f8811 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2539,11 +2539,13 @@ Its value and function definition are void, and its property list is nil.")
   
   p = XSYMBOL (val);
   p->name = XSTRING (name);
-  p->obarray = Qnil;
   p->plist = Qnil;
   p->value = Qunbound;
   p->function = Qunbound;
-  p->next = 0;
+  p->next = NULL;
+  p->interned = SYMBOL_UNINTERNED;
+  p->constant = 0;
+  p->indirect_variable = 0;
   consing_since_gc += sizeof (struct Lisp_Symbol);
   symbols_consed++;
   return val;